(*~\Глагол\Отделы\Поле~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Прямоуг;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: прямоугольная область на экране (предок для Поля и Надел)  
 *============================================================================*)
ИСПОЛЬЗУЕТ
  Вывод ИЗ "..\Обмен\";
ВИД
  Доступ-=ДОСТУП К Вид;
  Вид-=НАБОР
    x0-,y0-:ЦЕЛ; (* верхний левый угол *)
    x1-,y1-:ЦЕЛ; (* нижний правый угол *)
  КОН;

(******************************************************************************)
ЗАДАЧА Сдвиг-(прямоуг:Доступ; dx,dy:ЦЕЛ);
УКАЗ
  УВЕЛИЧИТЬ(прямоуг.x0,dx);
  УВЕЛИЧИТЬ(прямоуг.x1,dx);
  УВЕЛИЧИТЬ(прямоуг.y0,dy);
  УВЕЛИЧИТЬ(прямоуг.y1,dy)
КОН Сдвиг;

(******************************************************************************)
ЗАДАЧА Цвет-(прямоуг:Доступ; цвет:ЦЕЛ);
УКАЗ
  Вывод.Цвет(прямоуг.x0,прямоуг.y0,прямоуг.x1,прямоуг.y1,цвет)
КОН Цвет;

(******************************************************************************)
ЗАДАЧА Текст-(прямоуг:Доступ; цепь-:ЦЕПЬ);
УКАЗ
  Вывод.ВПрямоуг(прямоуг.x0,прямоуг.y0,прямоуг.x1,прямоуг.y1,цепь)
КОН Текст;

(******************************************************************************)
ЗАДАЧА Рамка-(прямоуг:Доступ);
УКАЗ
  Вывод.Рамка(прямоуг.x0,прямоуг.y0,прямоуг.x1,прямоуг.y1)
КОН Рамка;

(******************************************************************************)
ЗАДАЧА Пробел-(прямоуг:Доступ);
УКАЗ
  Вывод.Пробел(прямоуг.x0,прямоуг.y0,прямоуг.x1,прямоуг.y1)
КОН Пробел;

(******************************************************************************)
ЗАДАЧА ЦветнойПробел-(прямоуг:Доступ; цвет:ЦЕЛ);
УКАЗ
  Вывод.ЦветнойПробел(прямоуг.x0,прямоуг.y0,прямоуг.x1,прямоуг.y1,цвет)
КОН ЦветнойПробел;

(******************************************************************************)
ЗАДАЧА Изменить-(прямоуг:Доступ; x0,y0,x1,y1:ЦЕЛ);
УКАЗ
  Пробел(прямоуг);
  прямоуг.x0:=x0; прямоуг.y0:=y0;
  прямоуг.x1:=x1; прямоуг.y1:=y1
КОН Изменить;

(******************************************************************************)
ЗАДАЧА Подготовить-(прямоуг:Доступ; x0,y0,x1,y1:ЦЕЛ);
УКАЗ
  прямоуг.x0:=x0; прямоуг.y0:=y0;
  прямоуг.x1:=x1; прямоуг.y1:=y1
КОН Подготовить;

КОН Прямоуг.